home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 1 / Gekikoh Dennoh Club Vol. 1 (Japan).7z / Gekikoh Dennoh Club Vol. 1 (Japan) (Track 1).bin / tools / xb / sample / title3.bas < prev    next >
BASIC Source File  |  1995-06-17  |  829b  |  40 lines
  1.  
  2.  /* タイトル出現 その３
  3.  
  4. int x,y,s,x0=9
  5. float z
  6. dim d(199,99),e(400)
  7. screen 0,3,0,1
  8. /*screen 1,3,1,1
  9.  
  10.  /* タイトルを描く
  11. symbol(32,40,"タイトル",2,2,2,rgb(0,15,15),0)
  12. symbol(30,40,"タイトル",2,2,2,rgb(0,31,31),0)
  13. symbol(60,88,"やねんで",2,2,1,rgb(0,24,8),0)
  14.  
  15.  /* ラスタスクロールデータの作成
  16. print " 準備中"
  17. for y=0 to 99
  18. e(    y)=256
  19. e(100+y)=sqr(65536#-6.5536*y*y)
  20. /*e(100+y)=256-sqr(65536#-6.5536*((100-y)*(100-y)))
  21. next
  22. for x=0 to 199
  23. for y=0 to 49
  24.     d(x,y*2  )=(-e(x+150-y*2)) and &h1ff
  25.     d(x,y*2+1)=( e(x+150-y*2)) and &h1ff
  26. next:next:beep
  27.  
  28. while 1
  29. print " なにかキーを押して下さい";:asc(inkey$):cls
  30.  
  31.  /* ラスタスクロールデータのセット
  32. ras_scroll_set(4,d,,,55)
  33.  /* ラスタスクロール開始
  34. ras_scroll_stat(1,,,1)
  35.  
  36.  /* スクロール終了まで待つ
  37. while ras_scroll_stat(-1)>=0:endwhile
  38. endwhile
  39.  
  40.